perm filename LANG[SCR,LCS] blob sn#197667 filedate 1976-01-19 generic text, type T, neo UTF8
00100	COMPILE;
01300	INSTRUMENT FM;
01400	ZOSCIL(P4,MAG/P2,P5);
01510	RANDI(P9*P7*MAG,MAG/P8);
01600	OSCIL(U2,P9*MAG,P10);
01700	OSCIL(U1,U3+P3*MAG,P6);
01800	OUTA←OUTA+U4; END;
01900	
02500	FINISH;
02600	
02700	ARRAY F5(512); <F1 is already present.
02800	SEG(F5);0,1  1,2  1 97  0,100;<Envelope
03000	SYNTH(F1);1 1  999;
03200	
03300	
03340	PLAY;FM 0 .80 440 2000 F5 F1 11 .01 440.06 F1;FINISH;
03350	BIGBIT←-1;
03400	PLAY;FM 0 602 440 2000 F5 F1 11 10  440.06 F1;FINISH;